00100		DIMENSION K(2000)
00300		L=0
00400		L100=0
00500		J='00000'
00550		MJ=J
00600		M=J
00700	10	L=L+1
00705		L100=L100+1
00710		IF(L100.NE.100)GO TO 13
00720		L100=0
00730		MJ=MJ+32768
00740		M=MJ
00750		GO TO 14
00800	13	IF(L.NE.10)GO TO 12
01000		M=M+256
01010	14	L=0
01100		J=M-2
01200	12	J=J+2
01300		CALL DPYSET(1,K,2000)
01400		CALL DPYBIG(6)
01500		CALL DPYTXT(-100,0,'X=',1)
01600		CALL DPYTXT(0,0,J,1)
01700		CALL DPYOUT(1)
01750		CALL SAVDPY(K)
01800		ACCEPT 11,F
01900	11	FORMAT(F)
02000		GO TO 10
02100		END